PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


= 


1 8 

**FILE** 1 D**PASVALIDA 
PPPPPPPP AAAAAA SSSSSSSS_ VV VV AAAAAA LL IIIIII DDDDDDDD AAAAAA 
PPPPPPPP AAAAAA SSSSSSSS_ VV VV AAAAAA LL I1111 DDDDDDDD AAAAAA 
PP PP AA $$ VV VV AA AA LL II DD DD AA Ab 
PP PP AA AA SS VV VV AA AA LL I] DD DD AA AA 
PP PP AA AA SS VV VV AA AA LL I] DD DD AA AA 
PP PP AA AA SS VV VV AA AA LL II DD DD AA aA 
PPPPPPPP Ab AA SSSSSS VV VV AA AA LL II DD DD AA AR 
PPPPPPPP AA AA SSSSSS VV VV AA AA LL I] DD DD AA AB 
PP AAAAAAAAAA SS VV VV AAAAAAAAAA LL II DD DD AAAAAAAAAA 
PP AAAAAAAAAA SS VV VV AAAAAAAAAA LL II DD DD AAAAAAAAAA 
PP Ab AA Sh) VV VV AA AA LL I] DD DD AA aa 
PP AA AA SS vv VV AA AA LL I] DD DD AA AL 
PP Aa AA SSSSSSSS VV AA AA LLLLLLLLLL III] DDDDDDDD AA AA 
PP AG AA SSSSSSSS VV AA AA LLLLLLLLLL II1II1 DDDDDDDD AA AA 
LL T1111] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL II SS 
LL II SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL T1111 SSSSSSSS 


r 
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PASSSVALIDATE_P Validate PFV fields 16- se- 120% 98:1 :59 AX-11 BLi jets -32 V Page 
14-Sep-1984 12:51:59 PASRTL’ SRC PASVAL IDA. " 2:1 


MODULE PASSSVALIDATE PFV ( atyy LE ‘Validate PFV fields’ 
IDENT -002' : 


O08 ENT = ‘1- File: PASVALIDA.B32 Edit: SBL1002 
bbe hese 

006 geen ppeagnengeneymemnnnye co enreny connie 

008 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


!® THIS SOFTWARE iS FURNISHED _UNDER A LICENSE AND MAY BE USED AND cor ire 
!® ONLY IN ACCORDANCE WITH THE rena OF SUCH ik AND WITH THE 
!* INCLUSION OF THe ABOVE eee aer NOTICE. THIS SOFT ARE OR ANY OTHER 

!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
® 
2 
® 
® 
® 
* 
® 
® 
ie TRANSFERRED. . 
® 
® 
* 
® 
® 
* 
® 
*® 
* 
® 


oO 


BDNAUELS WN OOONAUS WN 0 ODNOULSWN—O0 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WiTHOUT NOTICE 
- peePokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LRA REE E RARER ERA REA EEE EEE 
' 


oe 
FACILITY: Pascal Language Support 


ABSTRACT: 
This module contains a Coop which is called by other 
ray ee gn 7 Fite ibrary procedures to verify that 
a s valid. 


i 
i 
i 
i 
i 
i 
' 
i 
ENVIRONMENI: User mode - AST reentrant 
i 
' 
i 
' 
i 
i 
i 
le 


SoOSDOOOOSOOOSOSOOOSOSOOOOOOOOOOOOOOOO 
SOSOoooooooooooooooooooooooooo 


WWAANAN AWA POPOPENNPONPUNIN DD 2 2 OO OO es ee 


0039 


0040 

Bees ' AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

004 ! MODIFIED BY: 

6044 

0045 1-001 = Original. SBL 1-April-1981 

0046 1-002 - Add global symbol PASSS$VALIDATE_PFV_END so that PASS$IO_HANDLER can 
0047 determine the PC range of PASS$SVALI 1BAt TE_PFV. SBL 14-JuT-1982 


DOONO MEW 0 ODO UE WN O ODNAUE WN (OVO DNAUE WW “OO ONOU FSW 
—) oe = eet a St 9 BF PP SP SB SS SS Ss SH Ss Ss Ss SS SS BV SV SS 2 OOOO 
. 


BRR EEE EE FAW AWA AIP PPON PNP NPNPODD 2 OO Ot Oe 
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PASSSVALIDATE_P Validate PFV fields Je~se0n 1386 93°] $23 AX-11 Bliss-32 V4.0- 
\- eclarations 14-Sep-1984 12:51:59 PASRTL. OE RESPASVALIbA.B B32;1 
RSBTTL ‘Declarations’ 
PROLOGUE DEFINITIONS: 


REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
' 


14 
Linkage for VALIDATE_ERROR. 


LINKAGE 
JSB tt wie: ERROR = 
REGISTER=0, REGISTER=6): NOTUSED (2,3,4,5,7,8,9,10,11); 


AAAAAOCOUINMIWIUIVIVIW =FO 
NAUSEA OOONIOM SW 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


i) 
5 1 
; 1 
: 1 
3 1 
3 0 1 
3 0 1 
: 11 1 
3 1 1 
3 1 1 
3 1 1 
; 01 1 
s 81 1 
: 1 1 
3 01 1 
3 01 1 
3 01 1 
: 01 1 
: 01 1 
0182 | 
: 71 013 1 PASSSVALIDATE_PFV: JSB_VAL T —E_PFV NOVALUE, ! Validate PFV fields 
3 4 oi : , VALIDATE_ERROR: JSB_VACIDATE_ERROR NOVALUE; ! Signal validation error 
3 74 013 1 ! MACROS: 
: 75 0137 1! 
; 7% 0138 1! NONE 
: 77 013 1! 
$ 78 014 1 ! EQUATED SYMBOLS: 
$ 79 014 1! 
; 80 0142 #1 
; 81 014 1 !¢ 
; ff 0144 1 ! Codes used to indicate errors to VALIDATE_ERROR. 
3 83 014 1 !- 
; | BS 0146 1 
3 85 014 1 oie 
: 86 0148 1 K INV FILVAR = 0, ! PASS_INVFILVAR, invalid file variable 
; wT 0149 1 K-FILALRACT = 1; ! PASS-FILALRACT, file already active 
: 88 0150 1 
3 89 0151 1 !¢ 
:; 90 0152 1 ! Bind the global s hype PASSSVALIDATE_PFV_END to the address of the instruction 
: 91 0153 1 | following PASSS$SVALIDATE PFV, which if VACIDATE_ERROR. This is so that 
: 9 0154 1 ! PAS$$IO_HANDLER can Look to see if an access violation occurred A, 
3 +, B13? i. PASSSVALIDATE_PFV and therefore turn it into a PAS$_INVFILVAR error. 
3 95 b189 1 
; | «696 0158 1 GLOBAL BIND 
s 97 0159 #1 PASSSVALIDATE_PFV_END = VALIDATE_ERROR; 
: «698 0160 1 
; 99 0161 1! 
; 100 Bes 1 ! FIELDS: 
: 101 B12 - 
: 138 164 1! NONE 
: 10 0165 1! 
: 104 B 166 1 ! OWN STORAGE: 
: 105 0167 1! 
: 106 0168 1! NONE 


PASSSVALIDATE _P 


VIEW 0 OOBNOUSWN “OO ONOUES WN OOO 


WWAIAIAI IAI POPNPONONUNONoNy 2 2 SS SS "O08 


ee em ee ee ee ee ee ed ed ed ed 


Fw -O0Onous 


o 


< 


7a 
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LIDATE_PFV = Validate PFV fields 14-Sep-19 


ZSBITL "PASSSVALIDATE_PFV = Validate PFV fields’ 
GLOBAL ROUTINE PASSSVALIDATE PFV ( 
PFV: REF SPASSPFV_FICE VARIABLE; ! File variable 
FCB: REF $PAS$FCB-CONTROL_BLOCK ! Control block 
) : JSB_VALIDATE_PFV ROVALUE = 


4 51:59 PASR P 


e+ 
' FUNCTIONAL DESCRIPTION: 
This procedure is called at the beginning of all VAX-11 Pascal 
1/0 procedures to verify that the PFV is in fact a valid file 
variable. It also locks the PFV against recursive 1/0. 
CALLING SEQUENCE: 
JSB_VALIDATE_PFV PASSSVALIDATE_PFV (PFV.rr.r; FCB.mr.r) 


FORMAL PARAMETERS: 


PFYV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 
FCB - The File Control Block (FCB) address is stored in 


the FCB argument. If there is no FCB, zero is stored. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
SIGNALLED ERRORS: 


INVFILVAR = invalid or corrupted file variable 
FILALRACT = file already active 


De 


BEGIN 


BUILTIN 
TESTBITSS; 
'¢ 
Test for valid PFV 


e PFV fields 18-Sep-1984 95:16:38 pecate dat tpxivia lea, 


- 


ym 8 
PASSSVALIDATE_P Validate PFV fields 16-Sep-1984 02:12:59 AX-11 Bliss-32 V4.0-74 
1 ASSSVALIDATE_PFV = Validate PFV fields 14-Sep-1984 95:49:23 PASRTL.SRC )PASVALIDA.B 382; 1 
If PFW CPFVSB_VERSION] GTRU PFVSK_CUR_VERSION 


BEGIN 

VALIDATE_ERROR (K_INVFILVAR); 

RETURN; 

END; 
+ 
} Test for already active file and lock this PFV 
— (PFV CPFV$V_LOCK)) 


BEGIN 
VALIDATE_ERROR (K_FILALRACT); 
RETURN; 


IF .PFV CPFVSV_FCB_VALIDJ 
THEN 


BEGIN 
FCB = .PFV CPFV$A_FCB); 
i fce CFCBSA_PFV) NEQA PFV CPFV$R_PFV] ! Compare back-pointer 


BEGIN 
VALIDATE_ERROR (K_INVFILVAR); 
RETURN; 


ND 
IF .PFV CPFVS$V_OPEN) ! FCB invalid and OPEN? Error! 


BEGIN 
VALIDATE_ERROR (K_INVFILVAR); 
RETURN; 
END 
ELSE 
FCB = 0; 
RETURN; 


END; ! End of routine PASSS$VALIDATE_PFV 


FRRANVLSSSLEREANLESSLRALAVESSaNSARanssSeusn ~ 


‘4 
| Get FCB address and do another validity test. 
4 
4 
4 
4 
: 
: 


RIMVPINIMINIMININAY 3 at rt st nt st an st st st a st a th et 


ooo 
oon 


-TITLE PASSSVALIDATE_PFV Validate PFV fields 
-IDENT \1-002\ 


-EXTRN PASSSVALIDATE_PFV 
-PSECT _PASSCODE.NOWRT, SHR, PIC,2 
04 A6 95 00000 PASSSVALIDATE_PFV:: 
TSTB 4(PFV) 
1F 12 00003 BNEQ 3$ 


: BY 


PASSSVALIDATE _P 


; Routine Size: 


Validate PFYV y elds 


PASSSVALIDATE_PFV = 


0 
0 


05 06 =#A 
38 
08 07 ~«#OA 
3 
05 07 Ab 
44 bytes, Routine Base: 


271 1 
272 «1 «!<BLF/PAGE> 


Validate PFV fields 


vo 
aon 
> 


0000v 
57 


PASSCODE + 


1% 8 
e-3e07] 


12 -Sep-1 
66 : 
9 A 

D 
f) : 7 
7 oooTe 
8 OO1E 
E1 OOO1F ¢: 
e na $: 

1 00026 4$: 

D4 00029 5$: 
05 00028 
0000 


Be 18:54:39 


#31, 4(PFV), 1$ 
#1, R 


» RO 
4 
#6, 7(PFV), 2% 
igtPrv) F¢B 
5g cB). PFV 


5, 7(PFV), 5$ 
VALIDATE_ERROR 
FCB 


AX-11 Bliss- 
PASRTL.SRCJPASVA Aida 


oOo O0O OOO 


8 9 


Page 6 


PASSSVALIDATE_P Validate PFV fields 16-Sep-1984 95:19 338 AX=-11 Bliss-32 ng 
1-002 VALIDATE _ERROR = Signal validation error 14-Sep-1984 12:51:59 PASRTL.SRCJPASVALIDA.B52;1 (4). 
: 213 8 73 1 XSBITL “VALIDATE_ERROR = Signal validation error' 

; 14 74 1 ROUTINE VALIDATE-ERROR ( 

5. 209 0275 1 ERROR_CO 3 ' Code for error to signal 

3 18 0276 1 PFV: REF $PASSPFV_FILE VARIABLE ! File variable 

3 i 8 a4 ) : JSB_VALIDATE_ERROR NOVALUE = 

; $32 0279 1 I++ 

; 550 8 $4 : FUNCTIONAL DESCRIPTION: 

; $56 pete 1} This procedure is called by PASS$VALIDATE_PFV to indicate that 

; S$? 0984 : it wants to signal an error. 

; $5 0285 1 ! CALLING SEQUENCE: 

; 226 0286 1! 

; $50 5444 : JSB_VALIDATE_ERROR VALIDATE_ERROR (ERROR_CODE.rl.v, PFV.rr.r) 
s 2ey 0289 1 ! FORMAL PARAMETERS: 

3; 250 0290 1! 

; 231 0291 1! ERROR_CODc - The code of the error to signal. 

; $36 OS36 1! K_INVFILVAR = Invalid file variable 

: $8 BS3z : K_FILALRACT = File already active 

3; 239 0295 1! PFV - The Pascal File Variable (PFV) passed by reference. 

; $39 $94 : The structure of the PFV is defined in PASPFV.REQ. 

$ 238 0298 1 ! IMPLICIT INPUTS: 

; 239 0299 1! 

; 240 0300 1! NONE 

: 241 0301 1! 

: 242 tag 1 ! IMPLICIT OUTPUTS: 

; 243 0303 1! 

3; 244 0304 1! NONE 

; 245 0305 1! 

; 246 0306 1 ! ROUTINE VALUE: 

; 247 0307 1! 

; 248 0308 1! NONE 

; 249 0309 1! 
; 250 0310 1 ' SIDE EFFECTS: | 
ee +) 0311 1! | 
8 €e O38 1! NONE 
ee +}! 0313 1! 
3; 254 0314 1 ! SIGNALLED ERRORS: 
s 6@39 0315 1! ; ‘ : 

: 256 O18 1} INVFILVAR = invalid or corrupted file variable 

ee +t 0517 1! FILALRACT = file already active 

: 258 0318 1! 

: 259 0319 1 !-- 

; 260 0320 1 

; 261 0321 2 BEGIN 

i; 262 8358 § 

: 263 $5 LOCAL 

3 64 0324 PFD: REF SPASSPFD_FILE_DESCRIPTOR; 

; 265 0325 

; 266 03 g '¢ ; . . : : 

: 267 03 ! If error is “invalid file variable, just signal it. 

; 268 0328 le 

3; 269 0329 


Cage TORTS P Validate P 
1-002 VALIDATE_E 
; 270 0330 
; 71 0331 
: ef 0 ¢ 
: 7 0 
: sie 0334 
s 2 0335 
: 276 0336 
: 77 0337 
; 278 0338 
: ey 0339 2 
: 280 0340 2 
; «281 tre! § 
3 see 0 tg 
; 28 034 § 
3: 6284 0344 
; 285 0345 3 
; 286 0346 3 
: 287 0347 3 
; 288 0348 3 
; 289 0349 3 
; 290 0350 2 
: 291 0351 2 
: 292 0352 2 
3; 293 0353 2 
; 294 0354 1 
08 


; Routine Size: 54 bytes, 


95 


035 
96 035 


. 9 
fields 16-Sep-1984 02:12:59 AX-11 Bliss-32 V4.0-74 
OR = Signal validation error ae 7 8 44:28 YONSRTLe SRE SPASVAL TDA. 69251 
IF_ .ERROR_CODE EQL K_INVFILVAR 
THEN 
BEGIN 
SIGNAL_STOP (PASS_INVFILVAR,1,PFV CPFVSR_PFVJ); 
RETURN; 
END; 
14 
! Must be ‘file already active'’. Include file variable name in 
' signal if the PFD address is not self-relative. If it is, use 
a dummy string. 
PFD = .PFV CPFVSA_PFDJ; ! Get PFD address 
SIGNAL_STOP (PAS$_FILALRACT,1, ¢ 
ae FV CPFV$O_RELPFDJ 
no BYTE (XCHARCOUNT('unknown'), 'unknown') 
* PFD CPFDST_NAME] 
RETURN; 
END; ! End of routine VALIDATE_ERROR 
07 QO02C P.AAA: .BYTE 7 
6— 77 6F 6E 6B 6E€ 75 0002D eASCII = \unknown\ 
-EXTRN PASS_INVFILVAR, PAS$_FILALRACT 
50 D5 00000 VALIDATE_ERROR: 
TSTL ERROR_CODE 
OC 12 00002 BNEQ 1$ 
56 DD 00004 PUSHL PFV 
01 DD 00006 PUSHL #1 
00000000G 8F DD 00008 PUSHL #PAS$_INVFILVAR 
1— 11 4443 BRB 
50 08 A6 00 00010 1$ MOVL B(PFV), PFD 
07 A6 04 €1 49 BBC #4, 7(PFV), 2% 
51 DC =6AF 69E 00019 MOVAB P.AAA, R1 
51 0D 80010 PUSHL R1 
05 11 OOO1F BRB 3$ 
50 0c co Bas, 23 ADDL2 #12, RO 
50 DD ORS PUSHL RO 
01 DD 00026 3$ PUSHL #1 
00000000G 8F DD 00028 PUSHL #PAS$_FILALRACT 
000000006 00 03 FB BoOse 4$ CALLS #3, LIBSSTOP 
05 000 RSB 


Routine Base: _PASSCODE + 0034 


Pi 
6 1 !<BLF/PAGE> 


i) he 
Validate PFV fields 16-Sep =138¢ 9: 2:12:59 AX-11 Bliss-32 V4.0 vat Page 8. 
VALIDATE_ERROR = Signal validation error 14-Sep 2:51:59 PASRTL.SRC PASVALIDA. B32;1 (5) 
8 END ! End of module PASSSVALIDATE_PFV | 
0359 0 ELUDOM 
-EXTRN LIBSSTOP 
PAS$SS$VALIDATE _PFV_END== 
VALIDATE_ERROR 
3 PSECT SUMMARY 
: Name Bytes Attributes | 
: PASSCODE 106 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
; Library Statistics | 
nee Se Bp ee ee i ey eee Syabol§ ssececee Pages Processing | 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
: ~$255$DUA28:CPASRTL. OBJ JPASLIB.L32;1 427 106 24 33 00:00.4 
| 
; COMMAND QUALIFIERS | 
: PERSP EMEC OSE COL SNES CA, -APT SPE EEO PRETRALE AL SONG, EIGER ESUN, FHAPER ICR IETS I LOM MSRC$:PASVALIDA/UPDA1E=(ENH$:PASVALIDA | 
Size: 98 code + 8 data bytes | 
Run Time: 00:05.4 
Elapsed Time: 00:19.0 
Lines/CPU Min: 3988 


Lexemes/CPU-Min: 9577 
pm | Used: 65 pages 
Compilation Complete 
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